Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n1.arc / HELP.BAS < prev next >

Wrap

BASIC Source File | 1987-10-02 | 17.1 KB | 252 lines

100 REM -- BASIC PROGRAM TO CREATE help.COM 110 OPEN "help.COM" AS #1 LEN = 1 120 FIELD #1,1 AS A$ 130 CHECKSUM = 0 140 FOR I = 1 TO 231 150 LINESUM = 0 155 PRINT "."; 160 FOR J = 1 TO 8 170 READ BYTE 180 CHECKSUM = CHECKSUM + BYTE 190 LINESUM = LINESUM + BYTE 200 IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE) 210 PUT #1 220 NEXT J 230 READ LINECHECK 240 IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I 250 NEXT I 260 CLOSE 270 IF CHECKSUM = 173460 THEN PRINT "Successful Completion!" : END 280 PRINT "COM file is not valid!" : END 290 DATA 233, 195, 3, 72, 69, 76, 80, 32, 760 300 DATA 49, 46, 48, 32, 40, 99, 41, 32, 387 310 DATA 49, 57, 56, 55, 32, 90, 105, 102, 546 320 DATA 102, 32, 67, 111, 109, 109, 117, 110, 757 330 DATA 105, 99, 97, 116, 105, 111, 110, 115, 858 340 DATA 32, 67, 111, 46, 13, 10, 83, 117, 479 350 DATA 99, 99, 101, 115, 115, 102, 117, 108, 856 360 DATA 108, 121, 32, 105, 110, 115, 116, 97, 804 370 DATA 108, 108, 101, 100, 13, 10, 80, 114, 634 380 DATA 101, 115, 115, 32, 65, 108, 116, 32, 684 390 DATA 72, 32, 116, 111, 32, 97, 99, 116, 675 400 DATA 105, 118, 97, 116, 101, 10, 0, 26, 573 410 DATA 77, 105, 99, 104, 97, 101, 108, 32, 723 420 DATA 74, 46, 32, 77, 101, 102, 102, 111, 645 430 DATA 114, 100, 0, 0, 0, 0, 0, 0, 214 440 DATA 0, 0, 0, 176, 25, 0, 0, 240, 441 450 DATA 3, 0, 0, 0, 0, 0, 35, 0, 38 460 DATA 0, 0, 1, 4, 0, 0, 9, 32, 46 470 DATA 13, 44, 59, 47, 10, 85, 115, 97, 470 480 DATA 103, 101, 58, 32, 32, 72, 69, 76, 543 490 DATA 80, 32, 102, 105, 108, 101, 115, 112, 755 500 DATA 101, 99, 32, 91, 46, 46, 46, 32, 493 510 DATA 102, 105, 108, 101, 115, 112, 101, 99, 843 520 DATA 93, 91, 47, 78, 110, 93, 91, 47, 650 530 DATA 72, 110, 93, 91, 47, 80, 93, 32, 618 540 DATA 124, 32, 91, 47, 85, 93, 13, 10, 495 550 DATA 10, 47, 78, 110, 32, 119, 104, 101, 601 560 DATA 114, 101, 32, 110, 32, 61, 32, 110, 592 570 DATA 117, 109, 98, 101, 114, 32, 111, 102, 784 580 DATA 32, 114, 101, 115, 101, 114, 118, 101, 796 590 DATA 100, 32, 112, 97, 103, 101, 115, 32, 692 600 DATA 40, 49, 45, 49, 52, 41, 59, 32, 367 610 DATA 100, 101, 102, 97, 117, 108, 116, 32, 773 620 DATA 61, 32, 52, 13, 10, 47, 72, 110, 397 630 DATA 32, 119, 104, 101, 114, 101, 32, 110, 713 640 DATA 32, 61, 32, 65, 108, 116, 32, 104, 550 650 DATA 111, 116, 32, 107, 101, 121, 32, 99, 719 660 DATA 111, 109, 98, 111, 32, 40, 65, 45, 611 670 DATA 90, 44, 48, 45, 57, 44, 34, 45, 407 680 DATA 34, 44, 34, 61, 34, 41, 59, 32, 339 690 DATA 100, 101, 102, 97, 117, 108, 116, 32, 773 700 DATA 61, 32, 72, 13, 10, 47, 80, 32, 347 710 DATA 32, 61, 32, 105, 109, 109, 101, 100, 649 720 DATA 105, 97, 116, 101, 32, 112, 111, 112, 786 730 DATA 45, 117, 112, 13, 10, 47, 85, 32, 461 740 DATA 32, 61, 32, 117, 110, 105, 110, 115, 682 750 DATA 116, 97, 108, 108, 13, 10, 10, 85, 547 760 DATA 115, 101, 58, 32, 80, 103, 85, 112, 686 770 DATA 32, 80, 103, 68, 110, 32, 72, 111, 608 780 DATA 109, 101, 32, 69, 110, 100, 32, 116, 669 790 DATA 111, 32, 110, 97, 118, 105, 103, 97, 773 800 DATA 116, 101, 32, 116, 104, 114, 111, 117, 811 810 DATA 103, 104, 32, 72, 69, 76, 80, 13, 549 820 DATA 10, 32, 32, 32, 32, 32, 69, 83, 322 830 DATA 67, 32, 111, 114, 32, 104, 111, 116, 687 840 DATA 32, 107, 101, 121, 32, 116, 111, 32, 652 850 DATA 101, 120, 105, 116, 10, 0, 32, 97, 581 860 DATA 99, 116, 105, 118, 101, 32, 112, 97, 780 870 DATA 103, 101, 40, 115, 41, 13, 10, 0, 423 880 DATA 32, 116, 111, 116, 97, 108, 32, 112, 724 890 DATA 97, 103, 101, 40, 115, 41, 13, 10, 520 900 DATA 10, 0, 10, 72, 69, 76, 80, 32, 349 910 DATA 99, 97, 110, 39, 116, 32, 98, 101, 692 920 DATA 32, 117, 110, 105, 110, 115, 116, 97, 802 930 DATA 108, 108, 101, 100, 46, 13, 10, 85, 571 940 DATA 110, 105, 110, 115, 116, 97, 108, 108, 869 950 DATA 32, 114, 101, 115, 105, 100, 101, 110, 778 960 DATA 116, 32, 112, 114, 111, 103, 114, 97, 799 970 DATA 109, 115, 32, 105, 110, 32, 114, 101, 718 980 DATA 118, 101, 114, 115, 101, 32, 111, 114, 806 990 DATA 100, 101, 114, 46, 10, 0, 10, 72, 453 1000 DATA 69, 76, 80, 32, 117, 110, 105, 110, 699 1010 DATA 115, 116, 97, 108, 108, 101, 100, 10, 755 1020 DATA 0, 84, 111, 111, 32, 109, 97, 110, 654 1030 DATA 121, 32, 114, 101, 115, 105, 100, 101, 789 1040 DATA 110, 116, 32, 112, 114, 111, 103, 114, 812 1050 DATA 97, 109, 115, 0, 32, 110, 111, 116, 690 1060 DATA 32, 102, 111, 117, 110, 100, 13, 10, 595 1070 DATA 0, 78, 111, 116, 32, 101, 110, 111, 659 1080 DATA 117, 103, 104, 32, 109, 101, 109, 111, 786 1090 DATA 114, 121, 0, 77, 101, 109, 111, 114, 747 1100 DATA 121, 32, 97, 108, 108, 111, 99, 97, 773 1110 DATA 116, 105, 111, 110, 32, 101, 114, 114, 803 1120 DATA 111, 114, 13, 10, 0, 45, 130, 48, 471 1130 DATA 129, 49, 120, 50, 121, 51, 122, 52, 694 1140 DATA 123, 53, 124, 54, 125, 55, 126, 56, 716 1150 DATA 127, 57, 128, 61, 131, 65, 30, 66, 665 1160 DATA 48, 67, 46, 68, 32, 69, 18, 70, 418 1170 DATA 33, 71, 34, 72, 35, 73, 23, 74, 415 1180 DATA 36, 75, 37, 76, 38, 77, 50, 78, 467 1190 DATA 49, 79, 24, 80, 25, 81, 16, 82, 436 1200 DATA 19, 83, 31, 84, 20, 85, 22, 86, 430 1210 DATA 47, 87, 17, 88, 45, 89, 21, 90, 484 1220 DATA 44, 251, 156, 46, 255, 30, 114, 1, 897 1230 DATA 156, 30, 6, 80, 83, 81, 82, 86, 604 1240 DATA 87, 85, 14, 31, 252, 184, 64, 0, 717 1250 DATA 142, 192, 38, 161, 74, 0, 163, 118, 888 1260 DATA 1, 38, 161, 99, 0, 5, 6, 0, 310 1270 DATA 163, 120, 1, 61, 186, 3, 116, 6, 656 1280 DATA 199, 6, 122, 1, 0, 184, 38, 160, 710 1290 DATA 73, 0, 60, 3, 118, 4, 60, 7, 325 1300 DATA 117, 30, 128, 62, 125, 1, 1, 116, 580 1310 DATA 29, 128, 62, 126, 1, 1, 116, 16, 479 1320 DATA 180, 1, 205, 22, 116, 10, 60, 0, 594 1330 DATA 117, 6, 58, 38, 134, 1, 116, 2, 472 1340 DATA 235, 113, 180, 0, 205, 22, 198, 6, 959 1350 DATA 126, 1, 1, 198, 6, 125, 1, 0, 458 1360 DATA 232, 88, 3, 138, 14, 138, 1, 254, 868 1370 DATA 201, 232, 5, 3, 139, 242, 232, 143, 1197 1380 DATA 3, 180, 0, 205, 22, 128, 252, 1, 791 1390 DATA 116, 57, 58, 38, 134, 1, 116, 51, 571 1400 DATA 138, 14, 138, 1, 128, 252, 73, 117, 861 1410 DATA 7, 128, 249, 1, 116, 31, 254, 201, 987 1420 DATA 128, 252, 81, 117, 8, 58, 14, 140, 798 1430 DATA 1, 116, 18, 254, 193, 128, 252, 71, 1033 1440 DATA 117, 2, 177, 1, 128, 252, 79, 117, 873 1450 DATA 4, 138, 14, 140, 1, 136, 14, 138, 585 1460 DATA 1, 235, 176, 190, 56, 8, 232, 71, 969 1470 DATA 3, 198, 6, 125, 1, 0, 198, 6, 537 1480 DATA 126, 1, 0, 93, 95, 94, 90, 89, 588 1490 DATA 91, 88, 7, 31, 157, 207, 252, 14, 847 1500 DATA 143, 6, 129, 1, 131, 252, 253, 119, 1034 1510 DATA 6, 190, 113, 3, 233, 70, 1, 128, 744 1520 DATA 62, 128, 0, 0, 117, 6, 190, 148, 651 1530 DATA 1, 233, 57, 1, 176, 95, 254, 192, 1009 1540 DATA 180, 53, 205, 33, 131, 251, 0, 117, 970 1550 DATA 16, 140, 194, 131, 250, 0, 117, 9, 857 1560 DATA 162, 131, 1, 60, 103, 117, 231, 235, 1040 1570 DATA 21, 139, 251, 190, 0, 1, 185, 15, 802 1580 DATA 0, 243, 167, 117, 238, 140, 6, 129, 1040 1590 DATA 1, 198, 6, 132, 1, 1, 255, 54, 648 1600 DATA 129, 1, 7, 190, 129, 0, 172, 60, 688 1610 DATA 13, 116, 99, 60, 47, 117, 247, 172, 871 1620 DATA 60, 13, 116, 90, 232, 121, 2, 60, 694 1630 DATA 85, 117, 10, 128, 62, 132, 1, 1, 536 1640 DATA 117, 228, 233, 56, 1, 60, 78, 117, 890 1650 DATA 26, 128, 62, 132, 1, 1, 116, 214, 680 1660 DATA 232, 45, 2, 128, 251, 14, 119, 206, 997 1670 DATA 128, 251, 0, 116, 201, 136, 30, 139, 1001 1680 DATA 1, 235, 195, 60, 80, 117, 5, 198, 891 1690 DATA 6, 133, 1, 1, 60, 72, 117, 182, 572 1700 DATA 172, 78, 232, 59, 2, 191, 157, 3, 894 1710 DATA 185, 38, 0, 174, 116, 5, 71, 226, 815 1720 DATA 250, 235, 163, 162, 80, 1, 138, 5, 1034 1730 DATA 38, 162, 134, 1, 235, 152, 190, 129, 1041 1740 DATA 0, 232, 9, 2, 114, 16, 137, 54, 564 1750 DATA 135, 1, 232, 0, 2, 115, 251, 86, 822 1760 DATA 80, 232, 79, 1, 88, 94, 60, 13, 647 1770 DATA 116, 11, 60, 47, 117, 227, 232, 236, 1046 1780 DATA 1, 115, 251, 235, 241, 160, 141, 1, 1145 1790 DATA 128, 62, 132, 1, 1, 116, 9, 58, 507 1800 DATA 6, 139, 1, 118, 3, 162, 139, 1, 569 1810 DATA 60, 0, 116, 12, 38, 162, 140, 1, 529 1820 DATA 38, 198, 6, 138, 1, 1, 235, 7, 624 1830 DATA 128, 62, 132, 1, 1, 117, 24, 128, 593 1840 DATA 62, 133, 1, 1, 117, 17, 38, 198, 567 1850 DATA 6, 125, 1, 1, 156, 255, 30, 127, 701 1860 DATA 1, 179, 0, 60, 0, 116, 51, 60, 467 1870 DATA 0, 190, 148, 1, 116, 39, 80, 138, 712 1880 DATA 200, 178, 10, 232, 220, 0, 232, 193, 1265 1890 DATA 0, 190, 198, 2, 232, 219, 0, 88, 929 1900 DATA 128, 62, 132, 1, 1, 138, 30, 137, 629 1910 DATA 1, 116, 15, 128, 62, 131, 1, 0, 454 1920 DATA 117, 14, 190, 73, 3, 179, 1, 232, 809 1930 DATA 192, 0, 138, 195, 180, 76, 205, 33, 1019 1940 DATA 161, 44, 0, 142, 192, 180, 73, 205, 997 1950 DATA 33, 190, 131, 3, 114, 231, 186, 0, 888 1960 DATA 1, 160, 131, 1, 180, 37, 205, 33, 748 1970 DATA 184, 9, 53, 205, 33, 137, 30, 114, 765 1980 DATA 1, 140, 6, 116, 1, 186, 233, 3, 686 1990 DATA 184, 9, 37, 205, 33, 138, 14, 139, 759 2000 DATA 1, 232, 102, 0, 190, 216, 2, 232, 975 2010 DATA 128, 0, 190, 3, 1, 232, 122, 0, 676 2020 DATA 232, 254, 0, 177, 4, 211, 234, 66, 1178 2030 DATA 184, 0, 49, 205, 33, 184, 9, 53, 717 2040 DATA 205, 33, 129, 251, 233, 3, 190, 234, 1278 2050 DATA 2, 179, 1, 117, 154, 140, 192, 59, 844 2060 DATA 6, 129, 1, 117, 146, 142, 6, 129, 676 2070 DATA 1, 180, 73, 205, 33, 190, 131, 3, 816 2080 DATA 115, 3, 232, 69, 0, 38, 139, 22, 618 2090 DATA 114, 1, 38, 142, 30, 116, 1, 184, 626 2100 DATA 9, 37, 205, 33, 38, 160, 131, 1, 614 2110 DATA 51, 210, 142, 218, 180, 37, 205, 33, 1076 2120 DATA 14, 31, 190, 54, 3, 179, 0, 233, 704 2130 DATA 93, 255, 138, 217, 128, 251, 10, 114, 1206 2140 DATA 8, 178, 49, 232, 12, 0, 128, 235, 842 2150 DATA 10, 138, 211, 128, 194, 48, 232, 1, 962 2160 DATA 0, 195, 180, 2, 205, 33, 195, 232, 1042 2170 DATA 248, 255, 172, 138, 208, 128, 250, 0, 1399 2180 DATA 117, 245, 195, 232, 95, 0, 114, 45, 1043 2190 DATA 139, 22, 135, 1, 74, 184, 0, 61, 616 2200 DATA 205, 33, 115, 17, 198, 6, 137, 1, 712 2210 DATA 1, 139, 242, 232, 220, 255, 190, 100, 1379 2220 DATA 3, 232, 214, 255, 195, 139, 216, 232, 1486 2230 DATA 12, 0, 114, 5, 232, 54, 0, 115, 532 2240 DATA 246, 180, 62, 205, 33, 195, 138, 14, 1073 2250 DATA 141, 1, 232, 68, 0, 6, 31, 185, 664 2260 DATA 160, 15, 180, 63, 205, 33, 114, 25, 795 2270 DATA 61, 0, 0, 116, 20, 46, 254, 6, 503 2280 DATA 141, 1, 43, 200, 116, 8, 139, 250, 898 2290 DATA 3, 248, 50, 192, 243, 170, 248, 235, 1389 2300 DATA 1, 249, 14, 31, 195, 128, 62, 141, 821 2310 DATA 1, 14, 116, 19, 128, 62, 132, 1, 473 2320 DATA 1, 117, 10, 38, 160, 139, 1, 58, 524 2330 DATA 6, 141, 1, 116, 2, 248, 195, 249, 958 2340 DATA 195, 184, 160, 15, 51, 210, 50, 237, 1102 2350 DATA 247, 225, 186, 216, 23, 3, 208, 195, 1303 2360 DATA 50, 219, 172, 60, 48, 114, 20, 60, 743 2370 DATA 57, 119, 16, 44, 48, 134, 195, 50, 663 2380 DATA 228, 178, 10, 246, 226, 134, 195, 2, 1219 2390 DATA 216, 235, 231, 78, 195, 172, 191, 142, 1460 2400 DATA 1, 185, 6, 0, 242, 174, 117, 6, 731 2410 DATA 198, 68, 255, 0, 249, 195, 248, 195, 1408 2420 DATA 60, 97, 114, 6, 60, 122, 119, 2, 580 2430 DATA 36, 95, 195, 198, 6, 124, 1, 25, 680 2440 DATA 139, 22, 120, 1, 161, 122, 1, 142, 708 2450 DATA 216, 14, 7, 51, 246, 191, 56, 8, 789 2460 DATA 38, 139, 46, 118, 1, 185, 80, 0, 607 2470 DATA 236, 168, 1, 117, 251, 250, 236, 168, 1427 2480 DATA 1, 116, 251, 173, 251, 171, 77, 116, 1156 2490 DATA 8, 226, 237, 209, 229, 3, 245, 235, 1392 2500 DATA 5, 73, 209, 225, 3, 249, 38, 254, 1056 2510 DATA 14, 124, 1, 117, 211, 14, 31, 195, 707 2520 DATA 198, 6, 124, 1, 25, 139, 22, 120, 635 2530 DATA 1, 161, 122, 1, 142, 192, 51, 255, 925 2540 DATA 139, 46, 118, 1, 185, 80, 0, 173, 742 2550 DATA 139, 216, 236, 168, 1, 117, 251, 250, 1378 2560 DATA 236, 168, 1, 116, 251, 139, 195, 171, 1277 2570 DATA 251, 77, 116, 8, 226, 233, 209, 229, 1349 2580 DATA 3, 253, 235, 5, 73, 209, 225, 3, 1006 2590 DATA 241, 254, 14, 124, 1, 117, 209, 195, 1155